﻿'
' Will Strohl (will.strohl@gmail.com)
' http://www.willstrohl.com
' http://dnntweet.codeplex.com
'
' Copyright (c) 2011, Will Strohl
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this 
' software and associated documentation files (the "Software"), to deal in the Software 
' without restriction, including without limitation the rights to use, copy, modify, 
' merge, publish, distribute, sublicense, and/or sell copies of the Software, and to 
' permit persons to whom the Software is furnished to do so, subject to the following 
' conditions:
'
' The above copyright notice and this permission notice shall be included in all copies 
' or substantial portions of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, 
' INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A 
' PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 
' HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE 
' OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
'

Namespace WillStrohl.Modules.Twitter

    <Serializable()> _
    Public NotInheritable Class SettingInfo
        Implements ISettingInfo

#Region " Private Members "

        Private p_ConsumerKey As String = Null.NullString
        Private p_ConsumerSecret As String = Null.NullString
        Private p_jQueryHosted As Boolean = Null.NullBoolean
        Private p_jQueryUIHosted As Boolean = Null.NullBoolean
        Private p_jQueryHostUrl As String = Null.NullString
        Private p_jQueryUIHostUrl As String = Null.NullString
        Private p_jQueryUITheme As String = Null.NullString
        Private p_RefreshRate As Integer = Null.NullInteger
        Private p_UseGlobalSettings As Boolean = Null.NullBoolean

#End Region

        Public Sub New()
            ' do nothing
        End Sub

#Region " Properties "

        Public Property ConsumerKey() As String Implements ISettingInfo.ConsumerKey
            Get
                Return Me.p_ConsumerKey
            End Get
            Set(ByVal value As String)
                Me.p_ConsumerKey = value
            End Set
        End Property

        Public Property ConsumerSecret() As String Implements ISettingInfo.ConsumerSecret
            Get
                Return Me.p_ConsumerSecret
            End Get
            Set(ByVal value As String)
                Me.p_ConsumerSecret = value
            End Set
        End Property

        Public Property jQueryHosted() As Boolean Implements ISettingInfo.jQueryHosted
            Get
                Return Me.p_jQueryHosted
            End Get
            Set(ByVal value As Boolean)
                Me.p_jQueryHosted = value
            End Set
        End Property

        Public Property jQueryUIHosted() As Boolean Implements ISettingInfo.jQueryUIHosted
            Get
                Return Me.p_jQueryUIHosted
            End Get
            Set(ByVal value As Boolean)
                Me.p_jQueryUIHosted = value
            End Set
        End Property

        Public Property jQueryHostUrl() As String Implements ISettingInfo.jQueryHostUrl
            Get
                Return Me.p_jQueryHostUrl
            End Get
            Set(ByVal value As String)
                Me.p_jQueryHostUrl = value
            End Set
        End Property

        Public Property jQueryUIHostUrl() As String Implements ISettingInfo.jQueryUIHostUrl
            Get
                Return Me.p_jQueryUIHostUrl
            End Get
            Set(ByVal value As String)
                Me.p_jQueryUIHostUrl = value
            End Set
        End Property

        Public Property jQueryUITheme() As String Implements ISettingInfo.jQueryUITheme
            Get
                Return Me.p_jQueryUITheme
            End Get
            Set(ByVal value As String)
                Me.p_jQueryUITheme = value
            End Set
        End Property

        Public Property RefreshRate() As Integer Implements ISettingInfo.RefreshRate
            Get
                Return Me.p_RefreshRate
            End Get
            Set(ByVal value As Integer)
                Me.p_RefreshRate = value
            End Set
        End Property

        Public Property UseGlobalSettings() As Boolean Implements ISettingInfo.UseGlobalSettings
            Get
                Return Me.p_UseGlobalSettings
            End Get
            Set(ByVal value As Boolean)
                Me.p_UseGlobalSettings = value
            End Set
        End Property

#End Region

    End Class

End Namespace